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° 12-Sep-19 4 $3:38:34 EDT.SRCJCHMCHANGE .BLI;1 . 
0001 XZTITLE "EDTSCHMCHANGE = change mode execution’ 
0 ¢ MODULE EDTSCHMCHANGE ( ! Change mode execution 
8 ? pent = 'v04-000' ! File: CHMCHANGE.BLI Edit: REM1040 
5 


BEGIN 


VR ARE RAR EAE ARE RETA A REET AERA EA AEE AAEE AEA ES 
' 


is COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
it DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
iw ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
!* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
't INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
'* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
't OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
® 
® 
® 
® 
ca 
& 
® 
® 
ie TRANSFERRED. ‘ 
® 
® 
® 
® 
® 
® 
* 
if 
® 
® 


polo lololololololololololelolololelolololeq) 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
'* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


SoOooCoooooooooooooooooooooooooo 


ig 

: 4 

: 5 

; 6 1 

3 7 1 

3 8 1 

; 9 1 

: 10 1 

£4 : 

3 ig 1 

: 14 1 

; 15 1 

of oe 1 

: 17 1 

$ 18 1 

; 19 1 

;: @& 1 

oe 1 

; $$ Bs : ' CORPORATION. 

3 te 

; 24 02 1 '* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
; $2 Bs ; ‘* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

3 Ie 

: 7 '@ 

zB $f Bs ! Lee RRR ARE RAERE AAA AREA AEE AAA AERA 
3 9 0 24 

$ $3 0 1 

ae 031 1 !++ f 

3 3 3 : FACILITY: EDT -- The DEC Standard Editor 

: 34 03 1 ! ABSTRACT: 

a. 0035 1! ; : ; : 

; $ Oos : This module contains the main routine for change mode execution. 
; Ho 4 : ENVIRONMENT: Runs at any access mode - AST reentrant 

; re sre : AUTHOR: Bob Kushlis, CREATION DATE: Unknown 

: $§ 9k 1 ! MODIFIED BY: 

$ 4 004 1! 

7: «646 0044 1 ! 1-001 - Original. DJS 04-Feb-1981. This module was created by 

; «645 0045 1! extracting the routine EDTSSCHM_EXE from module CHANGE.BLI. 

; 646 0046 1 ! 1-002 - Regularize headers and remove gontrot C. JBS 27-Feb-1981 

:. oF 0047 1 ! 1-003 - Fix module name. JBS 02-Mar-1981 

: 48 0048 1 ! 1-004 - Revise journaling. JBS ge~ dun 198! 

; «649 0049 1 ! 1-005 - Fix a journal ing bug. JBS 08-Jul-1981 

ee 0050 1 ! 1-006 - Use EDT$_ for message codes. JBS 04-Aug-1981 } ; hs 
oe i 0051 1 ! 1-007 - Fix a comment which stated that SoTS862 CORAAND RAB is an implicit input; 
3 2 B88 1! actual ye it is not used. JBS 16-Aug-1981 

;. > 0055 1 ! 1-008 - Return if the journal file terminates, and tell the caller. JBS 01-Oct-1981 
: Be 054 1 | 1-009 - Change FOB to user defined string. S$ Oé-oct-19 ; 

3 5 055 1 ! 1-010 - Change Literal prompt to use global string. aes 20-0c t-1981 

5; 3 026 1 ! 1-011 = Remove Length of prompt string, JBS 23-0ct-1981 

; WF 0057 1 ! 1-012 = Add control C handling. JBS 21-Dec-1981 
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change mode execution 


C 
C 


R 
S 


nna 
eaeao 


NEREISE TEASE With 


ebug control C pong ting, 3gs ade | Phd 

dd EDT$$G_JOU_VALID. Bs aetty 2 

implify the call to EDTS$SC_RESET. JBS enterrdase 

dd alternative control C meSsage. JBS 25-May-198 

lear EDT$$G_EXI before exiting. JBS 02-Jun-1982 

lear error Tndicator after an error in hardcopy 

change mode. JBS 02-Jun-1 

oa°38 reference to SET_FMTWRRUT and other message changes. 
MB 29-Jun 


Make FIRST TIME ENTERED a global. SMB 1-Jul-1982 
Remove EDTS$G_CAM_FRST_ENT J. use, jogtead EDTS$G_LASTMSG. JBS 05-Jul- 
= ep- 


emove EDT$$G_LN_NO. SMB 24 


iss-32 V4.0-74 
EDT. SRCJCHMCHANGE .BLI; 


1982 


Change the call fo screen update and add a LOAD entry point, so this module 
can be displaced by the screen update modules on the POP-11. JBS 25-Sep-19 


C 
R 
C 
C 


C 
Ss 
F 
F 
C 


hange the screen update call again, to improve overlay size. JBS 27- 
emove the call to SC_INIT, set a flag instead. SMB 06-Oct-1982 
onvert to new journalling scheme. STS 06-Oct-1982 

hange the name of the cursor positioning routine, to obsolete a 
redundent module. JBS 07-0ct-198 

orrect a comment. JBS 09-0ct-198 : 

et EDTSS$G_SCR_REBUILD on exit, so Line mode will be more efficient. 
irst time through - ignore typeahead. STS 10-Nov-1982 

irst time through - don't update screen if Fepgehess. STS 01-Dec-1982 
lear screen first time through. STS 02-Dec-1982 


Fix problem with hardcopy recoveries. STS tsmoge,!962 
Only initialize the screen once. JBS 20-Dec-1982 


Be more careful about 


D 
D 
0 


A 


Ad 


ofpke the owed message. JBS 18-Jan-1983 

on't call EDTSSERA_MSGLN unnecessarily. JBS 20-Jan-1983 

on't call EDTS$RD_ECHO unnecessarily. JBS 21-Jan-1983 

nly update the screen for every 10 characters when doing 

a recovery. JBS 21-Jan-198 

dd new value for EDT$$G_SCR_ CHGD. JBS 02-Mar-1983 

pg Pee <A Feat EDT$$G_TIN_OBUFPOS durring /RECOVERY mode. 
-“UCct= 


82 
Sep-1982 


JBS 21-Oct-1982 
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4.500 eclarations ° 14 et $3:58 34 feOT.SRe CHMCHANGE .BLI; . (2) 


| 
D 
| 
; 094 1 XSBTTL ‘Declarations’ 
3 +] 95 1! 
ae 96 1 | TABLE OF CONTENTS: | 
: 98 097 1} | 
; 99 Boa8 1 
: 100 aH REQUIRE "EDTSRC:TRAROUNAM'; 
: 108 8835 1 FORWARD ROUTINE | 
3; 10 0540 1 EDTS EXE, ! Driver for change mode processing 
; 13 te ! EDTSSLOABD_CHMCHANGE : NOVALUE; ! Load this module into memory 
; 198 garg 1! 
3s Y 0544 1 ! INCLUDE FILES: 
; 108 0545 1! 
; 109 8248 1 
>; 110 054 1 REQUIRE ‘EDTSRC:EDTREQ'; 
3s WW pees 1 
s \\¢ 0685 1! 
3s 11 0684 1 ! MACROS: 
3 (114 0685 1! 
3; 115 0686 1! NONE 
: 116 0687 1 | | 
s Fi7 0688 1 ! EQUATED SYMBOLS: 
: 118 0689 1 | | 
3; 6119 0690 1! NONE 
> 120 0691 1 | | 
: 121 0692 1 ! OWN STORAGE: | 
s. 222 0693 1! 
s 125 0694 1! NONE 
: 124 0695 1! | 
s 125 0696 1 ! EXTERNAL REFERENCES: 
: 126 0697 1! | 
: 127 0698 1! In the routine | 
| 
| 
| 
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M_EXE = change mode execution 14-Sep-1984 12:22:21 EDT. SRCICHMCHANGE .BLI; 
ZSBTTL "EDTSSCHM_EXE = change mode execution’ 
GLOBAL ROUTINE EDTSSCHM_EXE ! Change mode execution 


144 


i FUNCTIONAL DESCRIPTION: 


This is the main routine for change mode execution. First we initialize 
for change mode, then execute any change mode commands on the current 
command line. After we have finished with them, we check to see if an 
exit was done and if so get out. Otherwise we enter into the change mode 
command loop, getting commands and executing them until an exit is done, 
or until the journal file ends. 


FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 


$ 
$ 

= NE 
$$G~LASTMSG 
$$G_TIN_ECHOFLG 


IMPLICIT OUTPUTS: 


EDTSSA_CMD_BUF 

EDTSSA_CMD~END 
T$$A_CUR~BUF 

G-EDIT_MOD 


D 
D 
D 
D 
D C 

D R_ 

D R7REBUILD 
D N~OBUF POS 
ROUTINE VALUE: 


1 = reached the end of the journal file 
= executed an exit command 


OOoCooooO mm 


HM_EXE = change mode execution 
; SIDE EFFECTS: 
MANY 
lee 
BEGIN 
EXTERNAL ROUTINE 


| 11 
E HMCHANGE = change mode execution 15-Sep-198 
C 14-Sep-19 


4 23:46:14 AX-11 Bliss-32 V4.0-74 
4 93:59:34 YEOT SRE CHMCHANGE .BLI; 


DTS 
DT$ 
s 3 7 1 
$ 189 7 5 1 
> 188 7 8 1 
; 189 7 1 
; 190 760 1 
; 191 761 1 
; 136 166 
Me 
: 195 0765 EDTSSMSG_BELL : NOVALUE, ! Output a message to the terminal with a warning bell 
> 196 0766 EDTSSSC_POSCSIF : NOVALUE, ! Position the cursor 
3 V7 8fe EDTSSRD_ECHO, : ry to got teize terminal input 
: 198 768 EDTSSINIT_CHM : NOVALUE, ! Initialization on entering change mode 
: 199 0769 EDTSSFMT_CH ' Format a charcter 
; 200 0770 EDTS$SOUT—FMTBUF, ! Dump the format buffer 
; 201 0771 EDTSSFM . ! Format a re 
3 4 Brre EDTSSRD_CMDLN, ! Get a command line 
; 20 077 EDTSSTI_BUFCH : NOVALUE, ' Put a character in the journal file buffer 
: 204 0774 EDTSSTI_FLUSHJOUFI : NOVALUE, ! Empty the journal file's buffer 
: 205 0775 EDTSSRD_JOUTXT, ! Read a text record from the journal file 
: 206 0776 EDTSS$TI_WRLN ! Write to terminal 
: sor 0777 EDTSS$TI_WRST ! Write to terminal unformatted 
; 208 0778 EDTSSGET_KPADCMD, | Get @ keypad conmand 
; 209 0779 2 EDTSSFMT_TEXT : NOVALUE, ' output eob string 
s 210 0780 2 EDTSSSC_INIT, ! initialize terminal for change mode 
; $i) 0781 § EDTSS$SC_ERAALL, ' erase the screen 
; 212 bree EDTSSRPC_CHGDLN, ! Declare current Line as changed : 
; siz 07835 2 EDTSSCHM_PAREXE, ! Parse and execute a change mode command string 
> 216 0784 $ EDTS$SC_RESET ! Reset screen parameters ; 
3 aes 0785 EDT$$SC-UPD_NOOVERLAY1, ! Update the screen, no overlay checking on PDP-11 
; 216 0786 EDTSSSTART_QKINGMSG, i Set up working AST 
; 217 0787 EDTSSSTOP_QKINGMSG, ! Terminate working AST 
: 218 0788 EDTSSFMT_ASG, ! Print message text — 
3; 2 0789 2 EDTSSERA_MSGLN, ! Erase the message Line 
: 220 0790 $ EDTS$TI_TSTTYAHED, ' Check for type ahead | 
: 221 0791 EDTSSCHK_CC, ' Check for control C 
3 $56 8238 EDTSSCLR_CC : NOVALUE; ! Clear control C flag 
3 $i 0794 EXTERNAL bea 
3 €e2 0795 EDTS$G_EDIT_DFLTMOD, ! Editing default mode 
; 226 o798 EDT$$G_PUT Jou, 
: 227 079 EDTS$$G_MESSAGE_LINE, ! Error message Line is 1 more - 
3 cee 0798 EDTS$SG_MSGFLG ! 1 = there is a message on the iast Line 
; 9 3444 EDTSS$G_LASTMSG, ! The last message printed 
3 0 800 EDTSSA_FMT_WRRUT, ! Holds address of write routine 
; 1 0801 EDTSST_CMD_BUF, ' Command string buffer 
; 3 ba0e EDT$$G_CUR COL, ' current column | 
3; £ 080 EDT$$G_CS_CNO ' cursor Line. 
: 234 0804 EDTS$A_CMD_END, ! End of command pointer — 
B €0 Bane EDTSSG_EXI, : Change mode has been exited. 
; é Ht EDT$$G_CMD_LEN, ' Length of command buffer 
: 237 80 EDTSSA_CMD_BUF , ! Command string pointer 
: 238 08 EDTS$$G_INP_ SRC : Source of command input. 
; 239 308 EDT$$G_RCOV_MOD, ! In recovery mode? 
3 240 10 EDTS$A_CUR_BUF : REF TBCB_BLOCK, ! The current buffer tbcb 
: 261 0811 EDT$$G_TI_TYP, i Terminal type. 
3; 242 0812 EDTSST_LN_BUF, ! Current Line buffer 


11 
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ba *600 ED TSS CHR MEXE = change mode execution 14- ~3ep 1 198 $3: 33: i EDT. SRCICHMCHANGE .BLI; . (3) V 
| 

> 243 $1? EDTSSA_ LN. PTR, ! Current cherecter pornyer ; 
; 246 14 EDTSS$A_LN-E ! End of current R . ne pointer : 
> 265 815 EDT$$G “EDTT MOD i Editing mode: Line or change | ; 
: “8 518 poset rat TacenG : VECTOR C, BYTE), ' Counted ASCII arent string for hardcopy change mode $ 
; 24 1 EDT$$G_JOU_VA ! 1 = journat record is val : 
: 248 818 EDTSSA_WK CN: REF LIN_BLOCK, | ; 
3; 249 1 EDT$$Z_-E0B8 LN ; 
; 20 0 EDTS$$G_CC BONE ! 1 = Control C actually aborted something ; 
; 251 0821 EDT$$G-SCR_CHGOD i the screen must be repainted ; 
3 2g 08 ¢ EDT$$G_SCR-REBUILD, ! The screen must be re gilt from the work file ; 
. ££ 08 EDTS$$G_TIN_ECHOFLG, $ 
: 254 + 4 EDTS$G_RECSCRUPD ' Counter for screen updates in recovery mode 3 
; 29 08 5 EDT$$G-TIN_OBUFPOS; i Position in journal output buffer : 
3; 257 08 : OCAL ; ; 
; 258 0828 FIRST_TIME, ' 1 = first time, at least initialize the screen : 
; 259 0829 STATUS, ' 0 = error, 1 = ok, 2 = journal ihe ended 3 
3 $60 0830 CC_MSG ' 0 = no message, 1 = aborted ang. 6 ignored msg 3 
3 $e) tt OWED_MESSAGE; ! 1 = no message, else the code for the message to print 3 
; 368 O83 16 | : 
3 ee te: q Specify messages used in this routine. 3 
: 266 te MESSAGES ((CHGMODTER, ABOBYCC, CTRC__IGN)); | : 
; soe 4 } Since we entered this routine, we must be in change mode. | 3 
; 270 0840 ASSERT (.EDTS$G_EDIT_MOD EQL CHANGE_MODE); ; 
3 ery 0841 § '¢ 3 
F sie 44 ! Perform initialization. 3 
s 62r 0843 2 !- 3 
: 276 0844 EDTSSINIT_CHM (); : 
s es 0845 FIRST_TIME = 1; : 
: 276 0846 C_MSG = 0; | 3 
gs are 0847 2 !+ | : 
; 278 0848 2 ! make sure any previous commands have been written out to the journal file $ 
3 ay 0849 g !- 
: 280 0850 
; 281 0851 2 IF .edt$$g_rcov_mod THEN 
3 oe6 4 edt$$g_tin_Obufpos = 0 | 
3; a 085 
; «284 0854 edt$$ti_flushjoufi (%C'T'); 

: 585 0855 | 
on aa 
: 44 stt4 | Saeeute remainder of command line if there is a semicolon. 

3 

: 289 0859 

3 8 tt IF (CHSRCHAR (.EDTSSA_CMD_BUF) NEQ %C°!") THEN STATUS = EDTSSCHM_PAREXE (1) ELSE STATUS = 1; | 

; % Ose 1+ | 

: oo 86 i If an exit command was seen, get out now. 

3: 296 0864 i- 

: $38 Bee If .EDT$$G_EXI | 

: 3 Be THEN - | 

; 298 868 BEGIN 

: 299 0869 EDT$$G_EDIT_MOD = LINE_MODE; 
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104-000 EDTSSCHM_EXE = change mode execution 12280871380 13:38:34 YEDT SRCICAMCHANGE -BL 121 (3) | 
3 7 EDTSSRPL_CHGDLN (); 
3 of 8 EDTSSG_ERI = 6; 
: S if: RETURN (0); 
: 30 7? ND; 
; 304 74 
; 305 75 1+ 
3 4) 578 ! Before entering the command loop, make sure the input is either coming | 
: 2 of ! from the terminal or from a recovery file. We do not allow the startup 
; 308 0878 ! file or macros to enter change mode. 
. en ee | 
; 11 O88) IF (CC. EDTSSG_INP_SRC NEQ_INP_TERM) AND ( NOT .EDTS$$G_RCOV_MOD)) OR } 
; \¢ § (.EDTS$G_TI_TYP EQL TERM_ONKNOWN) ) 
s 6B 088 THEN 
>; 314 0884 BEGIN 
; 15 0885 EDTS$G_EDIT_MOD = LINE_MODE; | 
; 316 0886 ; EDTSSFAT_MSG (EDTS_CHGMODTER); 
: 317 0887 RETURN (0); | 
3 Be 0888 END; 
; 319 0889 
: 320 0890 14 
3 «Sel 0891 ' Set up for change mode editing. 
3 $56 089 !- 
3; Se 089 OWED_MESSAGE = 1; 
; 324 0894 ¢ 
; 325 0895 IF ((.EDTS$G_TI_TYP EQL TERM_VT52) OR (.EDTS$$G_TI_TYP EQL TERM_VT100)) 
; 326 0896 THEN 
; 327 0897 BEGIN 
3 $56 +384 7 EDTSSA_FMT_WRRUT = EDTSSTI_WRSTR; 
; 359 0900 ! Since we are about to refresh the screen, remember if there is a message, 
3 $3! 0901 ; ! so we can display it. This lets us display, for example, “Input file does not 
; 335 84's have standard text format’’ even if the first thing we do is enter change mode. 
; 334 0904 3 OWED _MESSAGE = .EDTSS$G_LASTMSG; 
B 230 0905 EDTS$G_SCR_CHGD = 2; ! Initialize terminal and repaint screen 
3 338 0906 END; 
g Sor 0907 
: $35 0908 '¢ 
3 +4 3444 : Now loop through, getting commands until an exit is seen or the journal file ends. 
: 341 0911 | 
: § Borg WHILE ((.EDTS$G_EXI EQL 0) AND (.STATUS NEQ 2)) DO 
3 bgt BEGIN 
3 4 914 
; 5 0915 IF .edt$$g_put_jou 
3 $ b3ig THE 
; 17 4 BEGIN 
: 8 8 4 
$ 9 919 4&4 IF .edt$$g_rcov_mod THEN 
3 29 ; Y ? edt$$g_tin_obufpos = 0 
; 6 § & edtS$$ti_flushjoufi (ZC'T'); 
3; 35 9 4 
3; 354 4 4 edt$$clricc (); 
3 ee 5 4 edt$$g_put_jou = 0 
: 356 926 3 END; 


EDTSCHMCHANGE 
v0 


71 


Be Se Be Se BeBe oe Be Se Be Se Se Se Se Fe Se Se Se Ge Fe Se Se Fe Ge Ge Ge Ge Ge Se Se FH Ss Se Ge Se oe FHS Se Se Ge SESE Se SESH ee SH Se Se Se Se Se ee Se See 
ead 
co 
“ 


“4 


OOOOOOOOO0OO0OO OO 


SSSSSSSSBESEeOe mm 


ono 


Coooococoo 


SSSSCSSCSCCOCOSD 


MMMM 
—OOONOULSWN—OO00 


Cooooceo 


SS 


096 


§ 


11 
HMCHANGE = change mode execution 18-Sep-1984 $3:56: 16 AX=-11 Bliss-32 V4.0-74 
CHM_EXE = change mode execution 14-Sep-1984 12:22:21 EDT. SRCJCHMCHANGE .BL1; 
'¢ 
Check for a hardcopy terminal. 
IF (.EDTS$G_TI_TYP EQL TERM_HCPY) 
ad BEGIN 
; Hard copy change mode. Output a control C message if we owe one. 
CASE .CC_MSG FROM 0 TO 2 OF 
SET 
C0] : ! We don't owe a message 
BEGIN 
0 
END; 
C1) beats ! The previous operation was aborted by a control C 
EDTSSMSG_BELL (EDT$_ABOBYCC); 
CC_MSG = 0; 
END; 
C2) a ! The previous control C was ignored 
EDTSSMSG_BELL (EDT$_CTRC__IGN); 
CC_MSG = 0; 
END; 
TES; 


'¢ 
} Type the current Line with the cursor bracketed. 


IF (.EDTS$A_WK_LN EQLA EDT$$Z_E0B_LN) 
EDTSSFMT_TEXT (0) 
LSE 


EDT 
EDTSSFMT— 

EDTSSFMT—CH (CHSRCHAR (.EDTS$A_LN_PTR)); 
EDTSSFMT—CH ('J'); 

If CHSPTR_NEQ (.EDTS$A_LN_PTR, .EDTS$SA_LN_END) 


END; 
EDTSSOUT_FMTBUF (); 
'¢ 
: Now get the next command string. 


Fe oy oe oF oF ot a al al ah Al dh dh db db ee eh he ee ee eh sh a a ee ea al al ee er el 4 al ee ee? a ot ot ot ot er lS. 


GIN 
SSEMT_STR (EDTSST_LN BUF, CHSDIFF (.EDTS$A_LN_PTR, CHSPTR (EDT$S$T_LN_BUF))); 


EDTSSFMT_STR (CHSPLUS (.EDTSSA_LN_PTR, 1), CHSDIFF (.EDTSSA_LN_END, .EDTS$A_LN_PTR) 
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SCHR EXE a change mode execution 1-05-1986 13:38:34 LEDT SRCICHACHANGE.BL I; sei 

STATUS = 1; 
IF .EDT$S$G_RCOV_MOD 
THEN 

BEGIN 

IF NOT EDTSSRD_JOUTXT (EDTS$T_CMD_BUF, EDT$$G_CMD_LEN)) 

nee = 2 ! Journal file ended 

BEGIN 


PUD DDD DELP PDD. PPV SE UO ON OP OS OR OPO INO NAO NAO UTI UI BE 


IF _(.EDTS$G_CMD_LEN EQL 2) 
THEN 
IF _(CHSRCHAR (CHSPTR (EDTSST_CMD_BUF)) EQL XC'*") 
IF (CCHSRCHAR (CHSPTR (EDTS$$T_CMD_BUF, 1)) 
THEN (CHSRCHAR (CHSPTR (EDTS$T—CMD~BUF. 1)) 
EDT$$G_EXI = 1; 


END = CHSPTR (EDTSS$T_CMD BUF, .EDT$$G_CMD_LEN); 
OBUFPOS = .EDT$$G_TIN_OBOFPOS + .EDTS$G_CAD_LEN 


END 

ELSE 
BEGIN 

14 
We are not recovering. 
i¢ 
! Since we are about to read from the terminal, make sure the Last 
! Line has been written to the journal file. 
eoress ttt Ae ire (EDTSST_PMT_HCCHG C1], .EDTSST_PMT_HCCHG [0], EDTSST_CMD_BUF, 
" EDTS$A_CMD_END = CHSPTR (EDTS$T_CMD_BUF, -EDTS$G_CMD_LEN); 


Put the new Line in the journal file buffer. 


IF .EDTS$G_EXI 
THEN 
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11 
MCHANGE = change mode execution 15-Sep-1984 $3746: 6 AX-11 Bliss-32 V4.0-74 
14-Sep-1984 12:22:21 EDT. SRCJCHMCHANGE .BLI; 


EDT$$G_JOU_VALID = 1; 
END; 


END 
ELSE 
BEGIN 
14 


i This is not a hard copy terminal. 
Erase the message Line, unless it is scheduled to be erased by the next keystroke. 


IF (€ NOT .EDTSSG_MSGFLG) AND .EDTSS$G_TIN_ECHOFLG) THEN EDTSSERA_MSGLN (); 


1+ 
! Check for characters in type ahead. Do not update if there 
are more characters to handle. 


IF ( NOT EDTSSTI_TSTTYAHED ()) 
THEN 


BEGIN 
= FIRST_TIME = 0; 


! Update the screen. This call ar bring in the screen update overlay; 
' this module will be loaded back into memory before the return. 

! In recovery mode we update the screen only 1/10 as often, to make 
recovery go faster, particularly when an overlay is needed. 


IF .EDT$$G_RCOV_MOD 
THEN 


BEGIN 

EDTS$G_RECSCRUPD = .EDT$$G_RECSCRUPD - 1; 
IF (,EDTS$G_RECSCRUPD LEQ 0) 

THEN 


BEGIN 
EDT$$G_RECSCRUPD = 10; 
EDTS$SC_UPD_NOOVERLAY QO; 


END 
ELSE 
EDTSS$SC_UPD_NOOVERLAY1 (); 


'e 
: Re-display the last message we saw before entering change mode. 


IF (.OWED_MESSAGE NEQ 1) 
THEN 
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BEGIN 

EDTSS$SC_POSCSIF (.EDT$$G_MESSAGE_LINE + 1, 0); 
EDTSSMSG_BELL (.OWED_MESSAGE); 

EDTS$$G_MSGFLG = 1; ' Erase it on next keystroke 
OWED_MESSAGE = 1; ! We no longer owe the message 


HMCHANGE .BLI; 
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DTSCHMCHANGE = chan 
DTSSCHM_EXE 
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! The previous operation was aborted by a control C 
* 256); 


-ABOBYCC); 
! The previous control C was ignored 


! We don't owe a message 
_CTRC__IGN); 


BUF); 
BUF, 


CMD_ 
“CMD- 
IF EDTSSCHK_CC () THEN STATUS = 1 ELSE STATUS = EDTSSGET_KPADCMD (); 


BELL (EDTS 
BELL (EDTS 
1. 
T 


MSG_ 

G 
SMSG_ 
SG 


zaAan 2 


gesin 
END; 

E 

D 

C 

N 

E 

D 

C 

N 


SET 
C0) 
(1) : 
C2) 
TES; 
IF ( NOT EDTSSRD_ECHO ()) THEN EDTSS$SC_POSCSIF (.EDT$S$G_CS_LNO, .EDT$$G_CUR_COL); 


CASE .CC_MSG FROM 0 TO 2 OF 


END 
BEGIN 
Output a control C message if we owe one. 
IF ( NOT .EDT$$G_RCOV_MOD) 


THEN 
IF .FIRST_TIME 
I 
§ 
$ 
$ 


ELSE 
END 
THEN 


END; 
Check for the optimized input applying. 
ELSE 


Get the next command string. 
$A_ 
$A_ 
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EDTSCHMCHANGE DTSCHMCHANGE = change mode execution 15-Se 1984 23:46:14 AX-11 Bliss-32 V4.0-74 
104-000 DISSCHR EXE - chenge mode execution 127808-1 384 $3:38:34 EDT LSRCICHMCHANGE -BL I: 
5 5 
8 END; 
3 28 IF ((.STATUS EQL 1) AND ( NOT EDTSSCHK_CC ())) 
90 60 BEGIN 
33 3 ise t the ‘worki AST 
' Start u e ‘working’ ° 
338 83 fie 4 . 
336 IF (.EDTS$G_TI_TYP NEQ TERM_HCPY) THEN EDTSSSTART_WKINGMSG (); 
9 ‘¢ 
rh } Execute the command string in EDTSST_CMD_BUF . 
600 EDTSSA_CMD_BUF = CHSPTR (EDTS$T_CMD_BUF); 
601 s STATUS = EBTSSCHM_PAREXE (1); 
60 i Turn off the ‘working’ AST. 
606 IF (.EDTS$G_TI_TYP NEQ TERM_HCPY) THEN EDTSSSTOP_WKINGMSG (); 
608 END; 


‘+ 
: If the control C flag is set, the command was probably aborted by a control C. 
! Invalidate the screen (since control C can sometimes cause a scroll) and arrange 
to show an appropriate message. 
IF EDTSSCHK_CC () 
THEN 
BEGIN 
IF (EDTS$G_TI_TYP NEQ TERM_HCPY) THEN EDT$$G_SCR_CHGD = 1; 
IF .EDTS$G_CC_DONE THEN CC_MSG = 1 ELSE CC_MSG = 2; 
END 
ELSE 
CC_MSG = 0; 
END; 
EDTSSRPL_CHGDLN (); 
i Clean up after ourselves. If we will be back here because this is 


! just the journal file ending we will put everything back for change 
mode again. 


mee a at ed a td td 8 ed ds a a — 3 8 8 a a 2 a St 1 2 
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: Reset the terminal as required. 
EDTSSSC_RESET (); 


i Flag that the screen must be rebuilt from the work file. This makes Line 
! mode more efficient, since it does not need to maintain the screen data base. 


AAAAAAAAAAAAAAAAAAAAAAAAA AAA AAAS 
NOUS WN — 


FE 
—OO 


Ww 
me ea aa a ak a a a ad at ts wd od = = = = 2 = = ot ot 2 ss SS tS Ss a st ts foal eal 


POPOPOPOPORORUPONUPONPNONIWIIN ES BE BEB BWW WWIII BB RRR 


-Oow 


Z 


11 
EDTSCHMCHANGE EDTSCHMCHANGE = change mode execution 1$-Se “19 4 AX-11 Bliss-32 V4.0-742 Page 
04-000 EDTSSCHM_EXE - chante mode execution 14- ety 7 43: 33; yy EDT. SRCJCHMCHANGE .BL.1;1 . 
; 64 1 3 te 
; 64 121 EDTS$G_SCR_REBUILD = 1; 
3; 644 1214 ' 
5 7 : 12 Reset the formatted write routine for Line mode. 
; ee9 1 i$ EDTSSA_FMT_WRRUT = porsstl WRUNG 
; 648 1218 EDTSSA_ CUR BUF CTBCB_C R_Pos gy Hy (.EDTSSA_LN_PTR, CHSPTR (EDTSS$T_LN_BUF)); 
3; 649 1219 EDTSSA_CMD DLBUF = CHS Spins terest. CMD _BUF); 
3 e280 } 9 CHSWCHAR (2C'!", .EDTSSA_CMD_BUF); 
3 626 1 $ IF (.EDTS$G_EXI NEQ 0) 
3; © 1 THEN 
; 654 1224 
; 655 1225 EDTS$G_EDIT_MOD = LINE_MODE; 
; 656 1226 3 EDTS$G_EX! = 0; 
; 657 1227 ND; 
; 658 1228 
3 033 159? IF (.STATUS EQL 2) THEN RETURN (1) ELSE RETURN (0); 
> 661 1231 1 END; ! of routine EDTSS$CHM_EXE 


-TITLE EDTSCHMCHANGE EDTSCHMCHANGE - change mode execu 
-IDENT \v04-000\ 


.EXTRN EDTSSMSG_BELL, EDTS$$SC POSCSIF 
-EXTRN EDTS$RD_ECHO, EDT$SINIT CHM 
-EXTRN EDTSSFMT_CH, EDTSSOUT -fATBUF 
SEXTRN EDTSS$FMT~ST TR EDTS$S$RD~CMDL 

-EXTRN EDTSSTI_BUFCH, EDTSSTY FLUSHJOUF 1 
-EXTRN EDTSS$RD~ sOUsK Xf, EDT$$TY_WRLN 
-EXTRN EDTSSTI- pers , EDTS$GET~ KPADCMD 
-EXTRN EDTSSFMT_TEXT, EDTS$SC_INIT 
~EXTRN ED Tsasc ERAALL, EDTSSRPL_CHGDLN 
SEXTRN EDTSSCHA_PAREXE 

-EXTRN EDTSS$SC RESET EDTSSsC _UPD_NOOVERLAY1 
SEXTRN EDTS$SST faRT K INGMS 

-EXTRN EDTS$$STOP OKING Oneee 

-EXTRN EDTSSFMT_ASG, EDTSSERA_MSGLN 
~-EXTRN EDTSS$TI_TSTTYAHE 

-EXTRN EDTSSCHR_CC, EDTSSCLR_CC 

-EXTRN EDT$$G_EDIT.DFLTMO 

-EXTRN EDT$$G_PUT JOU, EDT$$G_MESSAGE_LINE 
-EXTRN EDISSCCMSGFLG. EDTS$G_CASTMSG ~ 
“EXTRN EDISSATFMT. URRUT 

-EXTRN EDTSST-CMD-BUF, EDT$$G_CUR_COL 
-EXTRN EDT$$G~CS_CNO, EDTS$A_CMD_ END 
.EXTRN EDTSS$G-EXT, EDTS$G_CMO ten 
-EXTRN EDTSSA~CMD BUF, EDTSSG~ INP. SRC 
-EXTRN EDT$$G_RCOV_MOD 

-EXTRN EDTSS$A~CUR BUF , EDT$$G_TI_TYP 
-EXTRN EDTSST-LN_BUF, EDTS$A_CN PTR 
-EXTRN EDTSSA“LN-END, EDTS$G “EDIT _MOD 
-EXTRN EDTSS$T~PMT -HeCH HG 

-EXTRN EDT$$G~JOU-VALID 

-EXTRN EDTSSA_WK UCN ED TS$z _E0B_LN 
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EDTSCHMCHANGE EDTSCHMCHANGE = change mode execution 15-Sep-1984 246:14 AX-11 Bliss-32 V4.0-74 Pa 4) 
v04-000 EDTSSCHM_EXE = change mode execution 12280 0-198e 93:38:34 YEDT SREICHACHANGE OL 144 * ay 
} 
-EXTRN EDT$$G_CC_DONE, EDT$$G_SCR_CHGD 
-EXTRN EDT$$G-SCR_REBUILD 
-EXTRN EDT$$G-TIN-ECHOFLG 
-EXTRN EDTS$$G_RECSCRUPD 
-EXTRN EDT$$G~TIN_OBUFPOS 
.EXTRN EDT$_CAGMOBTER, EDT$_ABOBYCC 
.EXTRN EDTS$ICTRC__IGN, EDTS$SINTER_ERR 
.PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
OFFC 00000 ENTRY EDTSSCHM_EXE, Save R2,R3,R4,R5,R6,R7,RB8,R9,-; 0701 
58 000000006 00 9E 90002 MOVAB EDT$$G_TI_TYP, R11 : 
SA 900000006 0 9E 00009 MOVAB EDTS$$G-RCOV_MOD, R10 : 
59 000000006 00 9E 00010 MOVAS EDTS$$G~EXI,~R9 : 
58 000000006 60 9E 00017 MOVAB EDTS$T—CMD BUF, R8 ; 
000000006 00 p OO01E st EDTS$G_EDIT_MOD + 0840 
000000006 00 00 FB a90z6 CALLS #0, EDTSSINTER_ERR : 
000000006 00 00 FB 00020 1$: CALLS #0, EDTS$SINIT_CHM + 0844 
57 01 D0 00034 MOVL #1, FIRST_TIME : 0845 
54 D4 00037 CLRL CC’ MSG + 0846 
08 6A E9 00039 BLBC  EDT$$G_RCOV_MOD, 2$ > 0851 
000000006 00 D4 0003C¢ CLRL EDTSSG_TIN_OBUFPOS : 0852 
0B 11 00042 BRB $ : 
7E 54 BF 9A 00044 2$: MOVZBL #84, <(SP) + 0854 
000000006 00 01 FB 00048 CALLS #1, EDT$$TI_FLUSHJOUF I : 
50 000000006 00 DO O004F 3$: MOVL EDTS$A CMD _BUF RO + 0860 
21 60 91 00056 CMPB Ss (RO), 33 : 
OE 13 00059 BEQL ; 
01 DD 00058 PUSHL ; 
000000006 00 01 FB 0005D CALLS #1, EDTS$CHM_PAREXE : 
55 50 D0 00064 MOVL RO, STATUS : 
03 11 00067 BRB $ : 
55 01 DO 00069 4$ MOVL #1, STATUS : 
12 69 £9 0006C 5$ BLBC  EDT$$G_EXI, 6$ > 0866 
000000006 00 01 DO 0006F MOVL #1, EDT$$G_EDIT_MOD : 0869 
000000006 00 00 FB 00076 CALLS #0, EDT$S$RPL_CHGDLN : 0870 
69 04 0007D CLAL EDTS$6_ExI : 0871 
33 11 0007F BRB $ : 0872 
000000006 00 D5 00081 6$: TSTL EDTSSG_INP_SRC > 0881 
03 13 00087 BEQL 4 : 
04 6A £9 00089 BLBC - EDT$$G_RCOV_MOD, 8$ F | 
oe D3 OBC 7$: TSTL EDISSG_T1_T9P > 0882 
17 1 OO8E BNEG $ : 
000000006 00 01 00 000 8$: MOVL #1, EDT$$G_EDIT_MOD > 0885 
000000006 8F DD 00097 PUSHL #EDT$ CHGMODTER > 0886 
000000006 00 Qi FB 6009p CALLS #1, EDTSSFMT_MSG ; 
O37F 31 OOOA4 9$: BRW 59 : 0887 
56 01 DO OO0A7 10$:  MOVL #1, OWED _MESSAGE > 0893 | 
50 $8 DO OOOAA MOVL EDT$$G_TI_TYP, RO > 0895 | 
01 D1 OAD CMPL = RO, 1 ; 
05 13 00080 BEQL «=s«18 ; 
02 50 0} 0082 CMPL Rg #2 : 
19 12 908 BNEQ 126 : 
000000006 00 000000006 99 3 OB7 11$:  MOVAB EDTSS$TI_WRSTR, EDTS$$A_FMT_WRRUT : 0898 
56 000000006 00 00 000C2 MOVL  EDTS$G_CASTMSG, OWED_MESSAGE > 0904 


GE 


EDTSCHMCHAN 


v04-000 


EDTSCHMCHANGE = change mode execution 
EDTSSCHM_EXE = change mode execution 
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-Sep- 746: - - -0-742 Page 16. 
HA = change mode execution 15-Sep-1984 23:46:14 AX-11 Bliss-32 v4.0 | 
he aaa EDTSECHA EXE” - change mode execution 122808=1 984 $3:38:34 EDT LSREICHACHANGE .OL [23 = 
: | 
000000006 FB 001C7 CALLS #2, EDISSRD_JOUTXT | 
RO, 26$ : | 
ee one 
& 11 00104 : 
50 000000006 i D0 0106 268 OV i eee RO ; aed 
§ ; 
SE BF é8 of gle? chs EDtsst_cno_sur. #94 ; 0999 | 
51 01 AB oA O18 MOV ZBL EDTS$1 CMD_BUF +1, R1 ; 1002 
SA OBF 51 91 OO1EC ; 
Q 7$ ; 
7A soBF 9¢ 33 bOlES chs a #122 ; = 
SIR ate: Bite Bi: BEE oe ie 1 
etpmamgatene 3 5 fC 00208 : nite: RO, EDT$$G_TIN~OBUFPOS : 1008 
eben 23 06 OA 298 BRB 35§ pies > 0988 
7E FF SF 9a 0020C 30$ MOVZBL #255, -(SP) ; 1021 
000000006 00 00 10 PUSHAE EDT$§¢_CHD_LEN | 
T_HCCHG, -(SP) : 
ve goooognns G0 A GOeis OVI. EDTsT pwr neon. ee 
000000006 00 05 FB 00225 CALLS a>, EDTSSRD CHDLN | 
$3 000000006 30 5 00927 MOVL EDTSSG_CHDULEN, R3 os ; 1023 | 
—— i as ey Bae ARES Bg ITH O 7) 
#94, -(USP 3 
65 + at 8 00 25 CALLS #1, EDTS$$T1_BUFCH | 
staisptenins 14 SA BF 9A 00246 MovzBL #96, - > 1032 
000000006 00 01 re 90250 CALLS #1, EDTS$TI_BUFCH ‘ean 
52 01 CE 00259 315: NEL #1, COUNTER ; 1037 
7E 6ge3 oA $0586 32$:  MOVZBL EDTS$T_CMD_BUFCCOUNTER], -(SP) ; 1038 
01 FB 0098) CALLS #1, EDTSSTI_BUFCH : 
semen 53 F2 00269 33$:  AOBLSS R3. COUNTER, 32$ ; 
34 01 D0 00260 348: Mov #1. EDT$$G_JOU_VALID ; 1042 
Seer Nes 00E8 i 00274 35$:  BRW 50$ : 093¢ 
OE 000000006 00 E8 00277 36$:  BLBS  EDTSSG_MSGFLG, 37$ ; 105 
07 000000006 00 €9 0027 BLBC  EDTSS$G-TIN_ECHOFLG, 37S ; 
ie a em eC se 
orrs,. a a ile is 
sa > 1063 
RST_TIME : 
ee BS ORE ELSES, oe, oe 18 
£ 000000006 00 F5 0029 SOBGTR EDT$$G RECSCRUPD 40$ : 1074 
A dO 3 MOVL #10, EOT$$G_RECSCRUPD : 1079 | 
daittddiit 5 0 FB 9 AC 39$: CALLS #0, EDTS$$SC"UPD NOOVERLAY1 1085 
oreo 01 6 D1 00 BS 408: CPL OWED MESSAGE, at ; 1091 | 
© De 00sB8 3 1094 
$e D4 00 CLRL_ =(SP) | 
SAGE_LINE, (SP) : 
7E 000000006 00 01 C1 OOOBA ADDL3 i, DISSG MESSAGE ; | 
serene Se 3 BD $9 £6 BUSHEL fe, EDISSst. > 1095 | 
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1065 bytes, Routine Base: _EDTSCODE + 0000 


; Routine Size: 
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3; Routine Size: 


12 
EDTSCHMCHANGE = change mode execution 1-56 1984 23:46:14 AX-11 Bliss-32 V4.0-74 
EDTSSLOAD. CHACHANCE : load this module into mem 1h-8ep-19 4 $3'5 :21 EDT. SRCJCHMCHANGE.BLI; 
} ? } ZSBTTL "EDTSSLOAD_CHMCHANGE = load this module into memory‘ 
1235 1 GLOBAL ROUTINE EDTSS$LOAD_CHMCHANGE ! Load this module into memory 
1 $ 1 : NOVALUE = 
1 1 
1 : 1 le4 
: i ' FUNCTIONAL DESCRIPTION: 
1241 1! This is a do=nothing entry point, which serves to get this module 
: tg : loaded back into aokery in case it was displaced by the screen update modules. 
1244 1 ! FORMAL PARAMETERS: 
1245 1! 
1 “8 1! NONE 
1247 1! 
1248 1 ! IMPLICIT INPUTS: 
1249 1! 
1250 1! NONE 
1251 1! 
1526 1 ! IMPLICIT OUTPUTS: 
1253 1! 
1254 1! NONE 
1255 1! 
1256 1 ! ROUTINE VALUE: 
1257 1! 
1258 1! NONE 
1259 1! 
1260 1 ! SIDE EFFECTS: 
1261 1! 
1566 1! NONE 
1263 1! 
1264 1 !-- 
1265 1 
1266 H BEGIN 
1267 0 
1268 1 END; ! of routine EDTS$LOAD_CHMCHANGE 


0000 00000 P+ had EDTSSLOAD_CHMCHANGE, Save nothing 


04 00002 
3 bytes, Routine Base: _EDTSCODE + 0429 
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; Run Time: 337. 
; Elapsed Time: 00:42.6 
3; Lines/CPU Min: 206 

3 Lexemes/CPU-Min: 6240 
: qonecy Used: 231 pages 
5 a 


; Compilation Complete 


F 12 
EDTSCHMCHANGE EDTSCHMCHANGE = change mode execution 12-3007 138% 93:8 214 ate Oh ieee V4.0-742 Page 29 | 
v04- EDTSSLOAD_CHMCHANGE = load this module into mem 14-Sep-1984 12:22:21 EDT. SRCJCHMCHANGE .BLI;1 (5) | 
; 703 1271 1 END ! of module EDTSCHMCHANGE | 
: 704 1 Me 
; 705 1273 0 ELUDOM 
| 
| 
: PSECT SUMMARY | 
: Name Bytes Attributes | 
: _EDTSCODE 1068 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
3 Library Statistics 
ae Oy ee ees Syabols oooeeeo= Pages Processing 
: File Total Loaded Percent Mapped Time 
; _$255S$DUA28:(EDT.SRCJEDT.L32;1 377 42 11 40 00:00.2 | 
; _$255$0UA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
| 
| 
; COMMAND QUALIFIERS | 
; Fe see eR LIA, SPT TNE LE) IPTC ERIE MA, FOM8 TOs CC RANEE ERO EHC MSRC$: CHMCHANGE .BL I /UPDATE=(ENH$:C 
; Size: 1068 code + 0 data bytes 
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